unit Configuracoes;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ExtCtrls, DBCtrls, Buttons, FMTBcd, DB, SqlExpr, Mask,
  DMCaixa, Funcoes;

type
  TfrmConfiguracoes = class(TForm)
    Panel1: TPanel;
    Panel2: TPanel;
    Panel3: TPanel;
    lblAjuda: TLabel;
    data_Conta: TDataSource;
    dtConfiguracoes: TDataSource;
    GroupBox1: TGroupBox;
    DBCheckBox1: TDBCheckBox;
    DBCheckBox2: TDBCheckBox;
    DBCheckBox4: TDBCheckBox;
    dbeMensagem: TDBEdit;
    DBCheckBox3: TDBCheckBox;
    lblMensagem: TLabel;
    GroupBox2: TGroupBox;
    DBCheckBox20: TDBCheckBox;
    DBCheckBox28: TDBCheckBox;
    DBCheckBox5: TDBCheckBox;
    DBCheckBox26: TDBCheckBox;
    DBCheckBox11: TDBCheckBox;
    DBCheckBox24: TDBCheckBox;
    DBCheckBox16: TDBCheckBox;
    DBCheckBox21: TDBCheckBox;
    DBCheckBox9: TDBCheckBox;
    DBCheckBox23: TDBCheckBox;
    DBCheckBox12: TDBCheckBox;
    DBCheckBox22: TDBCheckBox;
    DBCheckBox25: TDBCheckBox;
    GroupBox3: TGroupBox;
    DBCheckBox13: TDBCheckBox;
    DBCheckBox19: TDBCheckBox;
    DBCheckBox6: TDBCheckBox;
    DBCheckBox10: TDBCheckBox;
    cbxTEF: TComboBox;
    Label1: TLabel;
    cbxBalcao: TComboBox;
    ComboBox1: TComboBox;
    Label3: TLabel;
    Label4: TLabel;
    DBLookupComboBox1: TDBLookupComboBox;
    DBCheckBox8: TDBCheckBox;
    DBCheckBox7: TDBCheckBox;
    bitOK: TBitBtn;
    bitRetorno: TBitBtn;
    bitSair: TBitBtn;
    Image1: TImage;
    procedure bitSairClick(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure DBCheckBox1MouseMove(Sender: TObject; Shift: TShiftState; X,
      Y: Integer);
    procedure Panel1MouseMove(Sender: TObject; Shift: TShiftState; X,
      Y: Integer);
    procedure DBCheckBox2MouseMove(Sender: TObject; Shift: TShiftState; X,
      Y: Integer);
    procedure lblMensagemMouseMove(Sender: TObject; Shift: TShiftState; X,
      Y: Integer);
    procedure DBCheckBox5MouseMove(Sender: TObject; Shift: TShiftState; X,
      Y: Integer);
    procedure DBCheckBox28MouseMove(Sender: TObject; Shift: TShiftState; X,
      Y: Integer);
    procedure DBCheckBox26MouseMove(Sender: TObject; Shift: TShiftState; X,
      Y: Integer);
    procedure DBCheckBox11MouseMove(Sender: TObject; Shift: TShiftState; X,
      Y: Integer);
    procedure DBCheckBox24MouseMove(Sender: TObject; Shift: TShiftState; X,
      Y: Integer);
    procedure DBCheckBox16MouseMove(Sender: TObject; Shift: TShiftState; X,
      Y: Integer);
    procedure GroupBox2MouseMove(Sender: TObject; Shift: TShiftState; X,
      Y: Integer);
    procedure DBCheckBox9MouseMove(Sender: TObject; Shift: TShiftState; X,
      Y: Integer);
    procedure DBCheckBox12MouseMove(Sender: TObject; Shift: TShiftState; X,
      Y: Integer);
    procedure DBCheckBox22MouseMove(Sender: TObject; Shift: TShiftState; X,
      Y: Integer);
    procedure DBCheckBox20MouseMove(Sender: TObject; Shift: TShiftState; X,
      Y: Integer);
      //procedure exibirHint(Sender : TObject);
    procedure DBCheckBox3MouseMove(Sender: TObject; Shift: TShiftState; X,
      Y: Integer);
    procedure DBCheckBox4MouseMove(Sender: TObject; Shift: TShiftState; X,
      Y: Integer);
    procedure DBCheckBox25MouseMove(Sender: TObject; Shift: TShiftState; X,
      Y: Integer);
    procedure DBCheckBox21MouseMove(Sender: TObject; Shift: TShiftState; X,
      Y: Integer);
    procedure DBCheckBox23MouseMove(Sender: TObject; Shift: TShiftState; X,
      Y: Integer);
    procedure DBCheckBox13MouseMove(Sender: TObject; Shift: TShiftState; X,
      Y: Integer);
    procedure DBCheckBox10MouseMove(Sender: TObject; Shift: TShiftState; X,
      Y: Integer);
    procedure DBCheckBox8MouseMove(Sender: TObject; Shift: TShiftState; X,
      Y: Integer);
    procedure DBCheckBox7MouseMove(Sender: TObject; Shift: TShiftState; X,
      Y: Integer);
    procedure DBCheckBox19MouseMove(Sender: TObject; Shift: TShiftState; X,
      Y: Integer);
    procedure DBCheckBox6MouseMove(Sender: TObject; Shift: TShiftState; X,
      Y: Integer);
    procedure Label1MouseMove(Sender: TObject; Shift: TShiftState; X,
      Y: Integer);
    procedure Label3MouseMove(Sender: TObject; Shift: TShiftState; X,
      Y: Integer);
    procedure Label4MouseMove(Sender: TObject; Shift: TShiftState; X,
      Y: Integer);
    procedure cbxTEFKeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure cbxBalcaoKeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure ComboBox1KeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure DBLookupComboBox1KeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frmConfiguracoes: TfrmConfiguracoes;

implementation


{$R *.dfm}

procedure TfrmConfiguracoes.bitSairClick(Sender: TObject);
begin
  frmConfiguracoes.close;
end;

procedure TfrmConfiguracoes.FormShow(Sender: TObject);
begin
  cbxBalcao.ItemIndex := 0;
end;

procedure TfrmConfiguracoes.DBCheckBox1MouseMove(Sender: TObject;
  Shift: TShiftState; X, Y: Integer);
begin
    lblAjuda.Caption := DBCheckBox1.Hint;
end;

procedure TfrmConfiguracoes.Panel1MouseMove(Sender: TObject;
  Shift: TShiftState; X, Y: Integer);
begin
  lblAjuda.Caption := '';
end;

procedure TfrmConfiguracoes.DBCheckBox2MouseMove(Sender: TObject;
  Shift: TShiftState; X, Y: Integer);
begin
  lblAjuda.Caption := DBCheckBox2.Hint;
end;

procedure TfrmConfiguracoes.lblMensagemMouseMove(Sender: TObject;
  Shift: TShiftState; X, Y: Integer);
begin
  lblAjuda.Caption := lblMensagem.Hint;
end;

procedure TfrmConfiguracoes.DBCheckBox5MouseMove(Sender: TObject;
  Shift: TShiftState; X, Y: Integer);
begin
  exibirHint(Sender, lblAjuda);
end;

procedure TfrmConfiguracoes.DBCheckBox28MouseMove(Sender: TObject;
  Shift: TShiftState; X, Y: Integer);
begin
  exibirHint(Sender, lblAjuda);
end;

procedure TfrmConfiguracoes.DBCheckBox26MouseMove(Sender: TObject;
  Shift: TShiftState; X, Y: Integer);
begin
  exibirHint(Sender, lblAjuda);
end;

procedure TfrmConfiguracoes.DBCheckBox11MouseMove(Sender: TObject;
  Shift: TShiftState; X, Y: Integer);
begin
  exibirHint(Sender, lblAjuda);
end;

procedure TfrmConfiguracoes.DBCheckBox24MouseMove(Sender: TObject;
  Shift: TShiftState; X, Y: Integer);
begin
  exibirHint(Sender, lblAjuda);
end;

procedure TfrmConfiguracoes.DBCheckBox16MouseMove(Sender: TObject;
  Shift: TShiftState; X, Y: Integer);
begin
  exibirHint(Sender, lblAjuda);
end;

procedure TfrmConfiguracoes.GroupBox2MouseMove(Sender: TObject;
  Shift: TShiftState; X, Y: Integer);
begin
    exibirHint(Sender, lblAjuda);
end;

procedure TfrmConfiguracoes.DBCheckBox9MouseMove(Sender: TObject;
  Shift: TShiftState; X, Y: Integer);
begin
  exibirHint(Sender, lblAjuda);
end;

procedure TfrmConfiguracoes.DBCheckBox12MouseMove(Sender: TObject;
  Shift: TShiftState; X, Y: Integer);
begin
  exibirHint(Sender, lblAjuda);
end;

procedure TfrmConfiguracoes.DBCheckBox22MouseMove(Sender: TObject;
  Shift: TShiftState; X, Y: Integer);
begin
  exibirHint(Sender, lblAjuda);
end;

procedure TfrmConfiguracoes.DBCheckBox20MouseMove(Sender: TObject;
  Shift: TShiftState; X, Y: Integer);
begin
  exibirHint(Sender, lblAjuda);
end;





procedure TfrmConfiguracoes.DBCheckBox3MouseMove(Sender: TObject;
  Shift: TShiftState; X, Y: Integer);
begin
  exibirHint(Sender, lblAjuda);
end;

procedure TfrmConfiguracoes.DBCheckBox4MouseMove(Sender: TObject;
  Shift: TShiftState; X, Y: Integer);
begin
  exibirHint(Sender, lblAjuda);
end;

procedure TfrmConfiguracoes.DBCheckBox25MouseMove(Sender: TObject;
  Shift: TShiftState; X, Y: Integer);
begin
  exibirHint(Sender, lblAjuda);
end;

procedure TfrmConfiguracoes.DBCheckBox21MouseMove(Sender: TObject;
  Shift: TShiftState; X, Y: Integer);
begin
  exibirHint(Sender, lblAjuda);
end;

procedure TfrmConfiguracoes.DBCheckBox23MouseMove(Sender: TObject;
  Shift: TShiftState; X, Y: Integer);
begin
  exibirHint(Sender, lblAjuda);
end;

procedure TfrmConfiguracoes.DBCheckBox13MouseMove(Sender: TObject;
  Shift: TShiftState; X, Y: Integer);
begin
  exibirHint(Sender, lblAjuda);
end;

procedure TfrmConfiguracoes.DBCheckBox10MouseMove(Sender: TObject;
  Shift: TShiftState; X, Y: Integer);
begin
  exibirHint(Sender, lblAjuda);
end;

procedure TfrmConfiguracoes.DBCheckBox8MouseMove(Sender: TObject;
  Shift: TShiftState; X, Y: Integer);
begin
  exibirHint(Sender, lblAjuda);
end;

procedure TfrmConfiguracoes.DBCheckBox7MouseMove(Sender: TObject;
  Shift: TShiftState; X, Y: Integer);
begin
  exibirHint(Sender, lblAjuda);
end;

procedure TfrmConfiguracoes.DBCheckBox19MouseMove(Sender: TObject;
  Shift: TShiftState; X, Y: Integer);
begin
  exibirHint(Sender, lblAjuda);
end;

procedure TfrmConfiguracoes.DBCheckBox6MouseMove(Sender: TObject;
  Shift: TShiftState; X, Y: Integer);
begin
  exibirHint(Sender, lblAjuda);
end;

procedure TfrmConfiguracoes.Label1MouseMove(Sender: TObject;
  Shift: TShiftState; X, Y: Integer);
begin
  exibirHint(Sender, lblAjuda);
end;

procedure TfrmConfiguracoes.Label3MouseMove(Sender: TObject;
  Shift: TShiftState; X, Y: Integer);
begin
  exibirHint(Sender, lblAjuda);
end;

procedure TfrmConfiguracoes.Label4MouseMove(Sender: TObject;
  Shift: TShiftState; X, Y: Integer);
begin
  exibirHint(Sender, lblAjuda);
end;

procedure TfrmConfiguracoes.cbxTEFKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  exibirHint(Sender, lblAjuda);
end;

procedure TfrmConfiguracoes.cbxBalcaoKeyDown(Sender: TObject;
  var Key: Word; Shift: TShiftState);
begin
  exibirHint(Sender, lblAjuda);
end;

procedure TfrmConfiguracoes.ComboBox1KeyDown(Sender: TObject;
  var Key: Word; Shift: TShiftState);
begin
  exibirHint(Sender, lblAjuda);
end;

procedure TfrmConfiguracoes.DBLookupComboBox1KeyDown(Sender: TObject;
  var Key: Word; Shift: TShiftState);
begin
  exibirHint(Sender, lblAjuda);
end;

procedure TfrmConfiguracoes.FormClose(Sender: TObject;
  var Action: TCloseAction);
begin
  Action := cafree;
end;

end.
